home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / OOmodules / library / gadtools.e < prev    next >
Text File  |  1996-05-05  |  1KB  |  95 lines
  1. OPT MODULE
  2.  
  3. MODULE  'oomodules/library',
  4.         'oomodules/object',
  5.  
  6.         'gadtools',
  7.         'libraries/gadtools'
  8.  
  9. EXPORT OBJECT gadtools OF library
  10. ENDOBJECT
  11.  
  12. EXPORT PROC init() OF gadtools
  13.  
  14.   self.version:=0
  15.   self.open()
  16.  
  17. ENDPROC
  18.  
  19. PROC open() OF gadtools
  20.  
  21.   IF gadtoolsbase THEN RETURN
  22.  
  23.   IF (gadtoolsbase := OpenLibrary('gadtools.library', self.version))=NIL THEN Throw("lib", 'Unable to open gadtools.library')
  24.  
  25. ENDPROC
  26.  
  27. PROC close() OF gadtools
  28. /****** locale/close ******************************
  29.  
  30.     NAME
  31.         close() of locale --
  32.  
  33.     SYNOPSIS
  34.         locale.close()
  35.  
  36.     FUNCTION
  37.  
  38.     RESULT
  39.  
  40.     EXAMPLE
  41.  
  42.     CREATION
  43.  
  44.     HISTORY
  45.  
  46.     NOTES
  47.  
  48.     SEE ALSO
  49.         locale
  50.  
  51. ********/
  52.  
  53.   IF gadtoolsbase THEN CloseLibrary(gadtoolsbase)
  54.  
  55. ENDPROC
  56.  
  57.  
  58. PROC end() OF gadtools
  59. /****** locale/end ******************************
  60.  
  61.     NAME
  62.         end() of locale --
  63.  
  64.     SYNOPSIS
  65.         locale.end()
  66.  
  67.     FUNCTION
  68.  
  69.     RESULT
  70.  
  71.     EXAMPLE
  72.  
  73.     CREATION
  74.  
  75.     HISTORY
  76.  
  77.     NOTES
  78.  
  79.     SEE ALSO
  80.         locale
  81.  
  82. ********/
  83.  
  84.   self.close()
  85.  
  86. ENDPROC
  87.  
  88.  
  89.  
  90. PROC name() OF gadtools IS 'Gadtools'
  91. /*EE folds
  92. -1
  93. 12 4 15 5 18 27 22 27 
  94. EE folds*/
  95.